home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vcls / wsanet8a / wsanet / wnslook / vb20 / wnslook.frm next >
Text File  |  1996-04-08  |  7KB  |  225 lines
  1. VERSION 2.00
  2. Begin Form Main 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "WiNslookup - Sample of WSANET.VBX"
  5.    Height          =   3645
  6.    Icon            =   WNSLOOK.FRX:0000
  7.    Left            =   1065
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3270
  10.    ScaleWidth      =   5280
  11.    Top             =   1560
  12.    Width           =   5370
  13.    Begin ListBox ListAliases 
  14.       Height          =   1368
  15.       Left            =   1680
  16.       TabIndex        =   4
  17.       Top             =   1440
  18.       Width           =   3492
  19.    End
  20.    Begin ListBox ListAddresses 
  21.       Height          =   1368
  22.       Left            =   120
  23.       TabIndex        =   3
  24.       Top             =   1440
  25.       Width           =   1452
  26.    End
  27.    Begin TextBox TextHost 
  28.       Height          =   288
  29.       Left            =   120
  30.       MaxLength       =   128
  31.       TabIndex        =   1
  32.       Top             =   840
  33.       Width           =   5052
  34.    End
  35.    Begin NetClient NetClient 
  36.       Left            =   4560
  37.       LineDelimiter   =   ""
  38.       RecvSize        =   4096
  39.       RecvThreshold   =   0
  40.       Top             =   360
  41.    End
  42.    Begin Label LabelStatus 
  43.       BackStyle       =   0  'Transparent
  44.       Caption         =   "Ok."
  45.       FontBold        =   0   'False
  46.       FontItalic      =   0   'False
  47.       FontName        =   "MS Sans Serif"
  48.       FontSize        =   8.25
  49.       FontStrikethru  =   0   'False
  50.       FontUnderline   =   0   'False
  51.       Height          =   252
  52.       Left            =   120
  53.       TabIndex        =   8
  54.       Top             =   2880
  55.       Width           =   5052
  56.    End
  57.    Begin Label LabelAddr 
  58.       Alignment       =   2  'Center
  59.       BackStyle       =   0  'Transparent
  60.       Caption         =   "LabelAddr"
  61.       FontBold        =   0   'False
  62.       FontItalic      =   0   'False
  63.       FontName        =   "MS Sans Serif"
  64.       FontSize        =   8.25
  65.       FontStrikethru  =   0   'False
  66.       FontUnderline   =   0   'False
  67.       Height          =   252
  68.       Left            =   0
  69.       TabIndex        =   7
  70.       Top             =   240
  71.       Width           =   5292
  72.    End
  73.    Begin Label LabelAliases 
  74.       Alignment       =   2  'Center
  75.       BackStyle       =   0  'Transparent
  76.       Caption         =   "Aliases"
  77.       FontBold        =   0   'False
  78.       FontItalic      =   0   'False
  79.       FontName        =   "MS Sans Serif"
  80.       FontSize        =   8.25
  81.       FontStrikethru  =   0   'False
  82.       FontUnderline   =   0   'False
  83.       Height          =   252
  84.       Left            =   1680
  85.       TabIndex        =   6
  86.       Top             =   1200
  87.       Width           =   3492
  88.    End
  89.    Begin Label LabelAddresses 
  90.       Alignment       =   2  'Center
  91.       BackStyle       =   0  'Transparent
  92.       Caption         =   "Addresses"
  93.       FontBold        =   0   'False
  94.       FontItalic      =   0   'False
  95.       FontName        =   "MS Sans Serif"
  96.       FontSize        =   8.25
  97.       FontStrikethru  =   0   'False
  98.       FontUnderline   =   0   'False
  99.       Height          =   252
  100.       Left            =   120
  101.       TabIndex        =   5
  102.       Top             =   1200
  103.       Width           =   1452
  104.    End
  105.    Begin Label LabelPrompt 
  106.       BackStyle       =   0  'Transparent
  107.       Caption         =   "Enter I.P. or DNS name:"
  108.       FontBold        =   0   'False
  109.       FontItalic      =   0   'False
  110.       FontName        =   "MS Sans Serif"
  111.       FontSize        =   8.25
  112.       FontStrikethru  =   0   'False
  113.       FontUnderline   =   0   'False
  114.       Height          =   192
  115.       Left            =   120
  116.       TabIndex        =   2
  117.       Top             =   600
  118.       Width           =   2052
  119.    End
  120.    Begin Label LabelHost 
  121.       Alignment       =   2  'Center
  122.       BackStyle       =   0  'Transparent
  123.       Caption         =   "LabelHost"
  124.       FontBold        =   -1  'True
  125.       FontItalic      =   0   'False
  126.       FontName        =   "MS Sans Serif"
  127.       FontSize        =   8.25
  128.       FontStrikethru  =   0   'False
  129.       FontUnderline   =   0   'False
  130.       Height          =   264
  131.       Left            =   0
  132.       TabIndex        =   0
  133.       Top             =   0
  134.       Width           =   5292
  135.    End
  136. End
  137. Option Explicit
  138.  
  139.  
  140. Sub Form_Load ()
  141.     
  142.     On Error Resume Next
  143.  
  144.     If NetClient.HostName <> "" Then
  145.         LabelHost = NetClient.HostName
  146.         LabelAddr = NetClient.HostAddr
  147.     Else
  148.         LabelHost = "LocalHost"
  149.         LabelAddr = "name unknown"
  150.     End If
  151. End Sub
  152.  
  153. Sub Form_Resize ()
  154. Dim iTemp As Integer
  155.  
  156.     On Error Resume Next
  157.  
  158.     If Main.WindowState = 1 Then Exit Sub
  159.     
  160.     LabelHost.Width = ScaleWidth
  161.     LabelAddr.Width = ScaleWidth
  162.  
  163.     TextHost.Width = Abs(ScaleWidth - 240)
  164.     iTemp = Abs(ScaleWidth - ListAliases.Left - 120)
  165.     ListAliases.Width = iTemp
  166.     LabelAliases.Width = iTemp
  167.  
  168.     LabelStatus = Abs(ScaleWidth - 240)
  169.     
  170.     iTemp = Abs(ScaleHeight - ListAliases.Top - 492)
  171.     ListAddresses.Height = iTemp
  172.     ListAliases.Height = iTemp
  173.  
  174.     LabelStatus.Top = Abs(ListAddresses.Top + iTemp + 120)
  175. End Sub
  176.  
  177. Sub NetClient_OnError (iErrorNumber As Integer)
  178.     
  179.     On Error Resume Next
  180.  
  181.     LabelStatus = NetClient.ErrorMessage
  182. End Sub
  183.  
  184. Sub TextHost_KeyPress (KeyAscii As Integer)
  185. Dim iIndex As Integer
  186.  
  187.     On Error Resume Next
  188.  
  189.     If KeyAscii = 13 Then
  190.         KeyAscii = 0
  191.         TextHost.Enabled = False
  192.         ListAddresses.Clear
  193.         ListAliases.Clear
  194.         LabelStatus = "Querying HostAddr"
  195.         NetClient.HostAddr = TextHost
  196.         If NetClient.HostAddr = "" Then
  197.             LabelStatus = "Querying HostName"
  198.             NetClient.HostName = TextHost
  199.             If NetClient.HostName = "" Then
  200.                 LabelStatus = "Sorry, I couldn't find that address"
  201.                 TextHost.Enabled = True
  202.                 Exit Sub
  203.             End If
  204.         End If
  205.  
  206.         ListAddresses.AddItem NetClient.HostAddr
  207.         If NetClient.HostAddressCount > 1 Then
  208.             For iIndex = 1 To NetClient.HostAddressCount - 1
  209.                 ListAddresses.AddItem NetClient.HostAddressList(iIndex)
  210.             Next
  211.         End If
  212.         ListAliases.AddItem NetClient.HostName
  213.         If NetClient.HostAliasCount > 0 Then
  214.             For iIndex = 1 To NetClient.HostAliasCount
  215.                 ListAliases.AddItem NetClient.HostAliasList(iIndex)
  216.             Next
  217.         End If
  218.         TextHost.Enabled = True
  219.         TextHost.SetFocus
  220.         TextHost.SelStart = 0
  221.         TextHost.SelLength = 128
  222.     End If
  223. End Sub
  224.  
  225.